BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / D-G / FORTRAN Goodies.sit / FORTRAN Goodies / Path.txt < prev next >
MacBinary | 1991-08-15 | 2.3 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Path.txt
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Swift 3D 3D Graphic `(poly/swift3D3DGraphic)`	ext	Unsupported
`1%`	dexvert	Boost Text serialization `(other/boostTextSerialization)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Thu Aug 15 15:38:05 1991, modified Thu Aug 15 15:38:05 1991, creator 'MPS ', type ASCII, 1645 bytes "Path.txt" , at 0x6ed 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 50 61 74 68 2e 74 | 78 74 00 00 00 00 00 00 |..Path.t|xt......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 6d 00 | 00 01 ac a4 d0 88 9d a4 |......m.|........|
|00000060| d0 88 9d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 41 1b 00 00 |........|....A...|
|00000080| 21 21 4d 50 20 69 6e 6c | 69 6e 65 73 2e 66 0d 43 |!!MP inl|ines.f.C|
|00000090| 09 a9 20 43 6f 70 79 72 | 69 67 68 74 20 31 39 39 |.. Copyr|ight 199|
|000000a0| 31 20 4c 61 6e 67 75 61 | 67 65 20 53 79 73 74 65 |1 Langua|ge Syste|
|000000b0| 6d 73 20 43 6f 72 70 2e | 0d 43 09 41 6c 6c 20 72 |ms Corp.|.C.All r|
|000000c0| 69 67 68 74 73 20 72 65 | 73 65 72 76 65 64 2e 0d |ights re|served..|
|000000d0| 0d 43 09 50 61 74 68 2e | 66 20 38 2f 31 35 2f 39 |.C.Path.|f 8/15/9|
|000000e0| 31 0d 43 0d 43 09 09 54 | 68 69 73 20 69 73 20 61 |1.C.C..T|his is a|
|000000f0| 20 70 72 6f 67 72 61 6d | 20 74 68 61 74 20 72 65 | program| that re|
|00000100| 74 75 72 6e 73 20 74 68 | 65 20 66 75 6c 6c 20 70 |turns th|e full p|
|00000110| 61 74 68 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 74 |athname |of the t|
|00000120| 65 78 74 66 69 6c 65 0d | 43 09 74 68 61 74 20 74 |extfile.|C.that t|
|00000130| 68 65 20 75 73 65 72 20 | 63 72 65 61 74 65 73 2e |he user |creates.|
|00000140| 20 20 54 68 69 73 20 63 | 6f 64 65 20 72 75 6e 73 |  This c|ode runs|
|00000150| 20 75 6e 64 65 72 20 53 | 79 73 74 65 6d 20 37 20 | under S|ystem 7 |
|00000160| 61 6e 64 20 6c 61 74 65 | 72 2e 0d 43 09 54 68 65 |and late|r..C.The|
|00000170| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 20 75 73 65 | source |code use|
|00000180| 73 20 74 68 65 20 53 79 | 73 74 65 6d 20 37 20 63 |s the Sy|stem 7 c|
|00000190| 61 6c 6c 20 46 53 4d 61 | 6b 65 46 53 53 70 65 63 |all FSMa|keFSSpec|
|000001a0| 20 74 6f 20 64 65 74 65 | 72 6d 69 6e 65 0d 43 09 | to dete|rmine.C.|
|000001b0| 74 68 65 20 66 75 6c 6c | 20 73 6f 75 72 63 65 20 |the full| source |
|000001c0| 70 61 74 68 20 6f 66 20 | 74 68 65 20 63 68 6f 73 |path of |the chos|
|000001d0| 65 6e 20 66 69 6c 65 2e | 20 20 54 68 69 73 20 63 |en file.|  This c|
|000001e0| 6f 64 65 20 63 61 6e 20 | 62 65 20 65 61 73 69 6c |ode can |be easil|
|000001f0| 79 20 0d 43 09 6d 6f 64 | 69 66 69 65 64 20 74 6f |y .C.mod|ified to|
|00000200| 20 72 65 74 75 72 6e 20 | 74 68 65 20 70 61 74 68 | return |the path|
|00000210| 6e 61 6d 65 20 6f 66 20 | 61 6e 20 61 6c 72 65 61 |name of |an alrea|
|00000220| 64 79 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |dy exist|ing file|
|00000230| 2e 0d 43 09 54 68 65 20 | 6c 61 74 65 73 74 20 69 |..C.The |latest i|
|00000240| 6e 6c 69 6e 65 73 20 61 | 6e 64 20 69 6e 63 6c 75 |nlines a|nd inclu|
|00000250| 64 65 20 66 69 6c 65 73 | 20 61 72 65 20 6e 65 65 |de files| are nee|
|00000260| 64 65 64 20 69 6e 20 6f | 72 64 65 72 20 66 6f 72 |ded in o|rder for|
|00000270| 20 74 68 69 73 20 0d 43 | 09 63 6f 64 65 20 74 6f | this .C|.code to|
|00000280| 20 77 6f 72 6b 2e 0d 0d | 09 70 72 6f 67 72 61 6d | work...|.program|
|00000290| 20 74 65 73 74 76 6f 6c | 0d 21 21 49 20 53 74 61 | testvol|.!!I Sta|
|000002a0| 6e 64 61 72 64 46 69 6c | 65 2e 66 0d 09 72 65 63 |ndardFil|e.f..rec|
|000002b0| 6f 72 64 20 2f 73 66 74 | 79 70 65 6c 69 73 74 2f |ord /sft|ypelist/|
|000002c0| 20 6d 79 74 79 70 65 73 | 0d 09 72 65 63 6f 72 64 | mytypes|..record|
|000002d0| 20 2f 73 74 61 6e 64 61 | 72 64 66 69 6c 65 72 65 | /standa|rdfilere|
|000002e0| 70 6c 79 2f 20 74 68 65 | 72 65 70 6c 79 0d 09 72 |ply/ the|reply..r|
|000002f0| 65 63 6f 72 64 20 2f 46 | 53 53 70 65 63 2f 20 6d |ecord /F|SSpec/ m|
|00000300| 79 66 69 6c 65 73 70 65 | 63 2c 20 73 63 72 61 74 |yfilespe|c, scrat|
|00000310| 63 68 73 70 65 63 0d 09 | 73 74 72 69 6e 67 2a 32 |chspec..|string*2|
|00000320| 35 35 20 73 2c 66 69 6c | 65 6e 61 6d 65 0d 09 0d |55 s,fil|ename...|
|00000330| 09 6d 79 74 79 70 65 73 | 2e 4f 53 54 79 28 30 29 |.mytypes|.OSTy(0)|
|00000340| 20 3d 20 27 54 45 58 54 | 27 0d 09 73 20 3d 20 27 | = 'TEXT|'..s = '|
|00000350| 4e 61 6d 65 20 74 68 65 | 20 6e 65 77 20 66 69 6c |Name the| new fil|
|00000360| 65 27 0d 09 66 69 6c 65 | 6e 61 6d 65 20 3d 20 27 |e'..file|name = '|
|00000370| 4e 65 77 66 69 6c 65 27 | 0d 63 09 43 61 6c 6c 20 |Newfile'|.c.Call |
|00000380| 53 74 61 6e 64 61 72 64 | 47 65 74 46 69 6c 65 28 |Standard|GetFile(|
|00000390| 6e 69 6c 2c 69 6e 74 32 | 28 31 29 2c 6d 79 74 79 |nil,int2|(1),myty|
|000003a0| 70 65 73 2c 25 72 65 66 | 28 74 68 65 72 65 70 6c |pes,%ref|(therepl|
|000003b0| 79 29 29 0d 09 43 61 6c | 6c 20 53 74 61 6e 64 61 |y))..Cal|l Standa|
|000003c0| 72 64 50 75 74 46 69 6c | 65 28 73 2c 66 69 6c 65 |rdPutFil|e(s,file|
|000003d0| 6e 61 6d 65 2c 25 72 65 | 66 28 74 68 65 72 65 70 |name,%re|f(therep|
|000003e0| 6c 79 29 29 0d 09 49 66 | 20 28 74 68 65 72 65 70 |ly))..If| (therep|
|000003f0| 6c 79 2e 73 66 67 6f 6f | 64 20 3d 20 30 29 20 67 |ly.sfgoo|d = 0) g|
|00000400| 6f 20 74 6f 20 31 30 30 | 0d 09 6d 79 66 69 6c 65 |o to 100|..myfile|
|00000410| 73 70 65 63 20 3d 20 74 | 68 65 72 65 70 6c 79 2e |spec = t|hereply.|
|00000420| 73 66 46 69 6c 65 0d 09 | 66 69 6c 65 6e 61 6d 65 |sfFile..|filename|
|00000430| 20 3d 20 6d 79 66 69 6c | 65 73 70 65 63 2e 6e 61 | = myfil|espec.na|
|00000440| 6d 65 0d 09 77 72 69 74 | 65 28 2a 2c 2a 29 20 27 |me..writ|e(*,*) '|
|00000450| 54 68 65 20 76 6f 6c 75 | 6d 65 20 72 65 66 6e 75 |The volu|me refnu|
|00000460| 6d 20 69 73 20 27 2c 6d | 79 66 69 6c 65 73 70 65 |m is ',m|yfilespe|
|00000470| 63 2e 76 72 65 66 6e 75 | 6d 0d 09 77 72 69 74 65 |c.vrefnu|m..write|
|00000480| 28 2a 2c 2a 29 20 27 54 | 68 65 20 70 61 72 65 6e |(*,*) 'T|he paren|
|00000490| 74 20 64 69 72 20 69 64 | 20 69 73 20 27 2c 6d 79 |t dir id| is ',my|
|000004a0| 66 69 6c 65 73 70 65 63 | 2e 70 61 72 49 44 0d 09 |filespec|.parID..|
|000004b0| 77 72 69 74 65 28 2a 2c | 2a 29 20 27 54 68 65 20 |write(*,|*) 'The |
|000004c0| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 66 69 6c 65 |name of |the file|
|000004d0| 20 69 73 20 27 2c 6d 79 | 66 69 6c 65 73 70 65 63 | is ',my|filespec|
|000004e0| 2e 6e 61 6d 65 0d 09 77 | 72 69 74 65 28 2a 2c 2a |.name..w|rite(*,*|
|000004f0| 29 20 27 50 61 74 68 20 | 6e 61 6d 65 20 69 73 20 |) 'Path |name is |
|00000500| 27 2c 66 69 6c 65 6e 61 | 6d 65 0d 32 30 30 09 73 |',filena|me.200.s|
|00000510| 20 3d 20 27 27 0d 09 69 | 65 72 72 20 3d 20 46 53 | = ''..i|err = FS|
|00000520| 4d 61 6b 65 46 53 53 70 | 65 63 28 6d 79 66 69 6c |MakeFSSp|ec(myfil|
|00000530| 65 73 70 65 63 2e 76 72 | 65 66 6e 75 6d 2c 20 6d |espec.vr|efnum, m|
|00000540| 79 66 69 6c 65 73 70 65 | 63 2e 70 61 72 49 44 2c |yfilespe|c.parID,|
|00000550| 20 73 2c 25 72 65 66 28 | 73 63 72 61 74 63 68 73 | s,%ref(|scratchs|
|00000560| 70 65 63 29 29 0d 09 69 | 66 20 28 69 65 72 72 20 |pec))..i|f (ierr |
|00000570| 2e 6e 65 2e 20 30 29 20 | 67 6f 20 74 6f 20 33 30 |.ne. 0) |go to 30|
|00000580| 30 0d 09 6d 79 66 69 6c | 65 73 70 65 63 20 3d 20 |0..myfil|espec = |
|00000590| 73 63 72 61 74 63 68 73 | 70 65 63 0d 09 66 69 6c |scratchs|pec..fil|
|000005a0| 65 6e 61 6d 65 20 3d 20 | 6d 79 66 69 6c 65 73 70 |ename = |myfilesp|
|000005b0| 65 63 2e 6e 61 6d 65 20 | 2f 2f 20 22 3a 22 20 2f |ec.name |// ":" /|
|000005c0| 2f 20 66 69 6c 65 6e 61 | 6d 65 0d 09 77 72 69 74 |/ filena|me..writ|
|000005d0| 65 28 2a 2c 2a 29 20 27 | 54 68 65 20 76 6f 6c 75 |e(*,*) '|The volu|
|000005e0| 6d 65 20 72 65 66 6e 75 | 6d 20 69 73 20 27 2c 6d |me refnu|m is ',m|
|000005f0| 79 66 69 6c 65 73 70 65 | 63 2e 76 72 65 66 6e 75 |yfilespe|c.vrefnu|
|00000600| 6d 0d 09 77 72 69 74 65 | 28 2a 2c 2a 29 20 27 54 |m..write|(*,*) 'T|
|00000610| 68 65 20 70 61 72 65 6e | 74 20 64 69 72 20 69 64 |he paren|t dir id|
|00000620| 20 69 73 20 27 2c 6d 79 | 66 69 6c 65 73 70 65 63 | is ',my|filespec|
|00000630| 2e 70 61 72 49 44 0d 09 | 77 72 69 74 65 28 2a 2c |.parID..|write(*,|
|00000640| 2a 29 20 27 54 68 65 20 | 6e 61 6d 65 20 6f 66 20 |*) 'The |name of |
|00000650| 74 68 65 20 66 6f 6c 64 | 65 72 20 69 73 20 27 2c |the fold|er is ',|
|00000660| 6d 79 66 69 6c 65 73 70 | 65 63 2e 6e 61 6d 65 0d |myfilesp|ec.name.|
|00000670| 09 77 72 69 74 65 28 2a | 2c 2a 29 20 27 50 61 74 |.write(*|,*) 'Pat|
|00000680| 68 20 6e 61 6d 65 20 69 | 73 20 27 2c 66 69 6c 65 |h name i|s ',file|
|00000690| 6e 61 6d 65 0d 09 67 6f | 20 74 6f 20 32 30 30 0d |name..go| to 200.|
|000006a0| 33 30 30 09 6f 70 65 6e | 28 31 2c 66 69 6c 65 3d |300.open|(1,file=|
|000006b0| 66 69 6c 65 6e 61 6d 65 | 29 0d 09 77 72 69 74 65 |filename|)..write|
|000006c0| 28 31 2c 2a 29 20 27 74 | 65 73 74 69 6e 67 27 0d |(1,*) 't|esting'.|
|000006d0| 09 63 6c 6f 73 65 28 31 | 29 0d 31 30 30 09 63 6f |.close(1|).100.co|
|000006e0| 6e 74 69 6e 75 65 0d 09 | 65 6e 64 0d 09 00 00 00 |ntinue..|end.....|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000710| 75 63 74 75 72 65 20 2f | 53 46 54 79 70 65 4c 69 |ucture /|SFTypeLi|
|00000720| 73 74 2f 0d 09 09 52 65 | 63 6f 72 64 20 2f 4f 53 |st/...Re|cord /OS|
|00000730| 08 50 61 74 68 2e 74 78 | 74 00 02 00 00 00 50 61 |.Path.tx|t.....Pa|
|00000740| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|00000750| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 a9 80 18 cb 00 00 | 00 00 00 00 01 ac 01 3a |........|.......:|
|00000780| 00 44 00 09 53 74 72 75 | 63 74 75 72 65 20 2f 53 |.D..Stru|cture /S|
|00000790| 46 54 79 70 65 4c 69 73 | 74 2f 0d 09 09 52 65 63 |FTypeLis|t/...Rec|
|000007a0| 6f 72 64 20 2f 4f 53 54 | 79 70 65 2f 20 4f 53 54 |ord /OST|ype/ OST|
|000007b0| 79 28 30 3a 33 29 0d 09 | 45 6e 64 20 53 74 72 75 |y(0:3)..|End Stru|
|000007c0| 63 74 75 72 65 0d 53 46 | 54 79 70 65 4c 69 73 74 |cture.SF|TypeList|
|000007d0| 00 00 00 00 00 54 00 56 | 56 60 0d 02 00 01 0f 02 |.....T.V|V`......|
|000007e0| 00 00 00 20 46 52 45 45 | 00 00 00 00 00 00 00 00 |... FREE|........|
|000007f0| 0f 46 72 65 65 20 4f 62 | 6a 65 63 74 20 20 20 20 |.Free Ob|ject    |
|00000800| 00 00 00 1e 00 3c 00 24 | 01 dd 02 3d 00 3c 00 24 |.....<.$|...=.<.$|
|00000810| 01 dd 02 3d 00 00 00 00 | 00 00 00 00 00 00 00 00 |...=....|........|
|00000820| 00 00 00 00 00 48 00 09 | 4d 6f 6e 61 63 6f 00 ff |.....H..|Monaco..|
|00000830| 00 00 00 00 00 14 00 01 | e2 1c 00 0a 00 16 00 00 |........|........|
|00000840| 00 21 02 0a 00 00 00 00 | 00 06 00 04 00 3c 00 24 |.!......|.....<.$|
|00000850| 01 dd 02 3d 00 3c 00 24 | 01 dd 02 3d a4 d0 42 4d |...=.<.$|...=..BM|
|00000860| 00 00 00 eb 00 00 02 06 | 00 00 00 00 01 00 00 00 |........|........|
|00000870| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 28 |.....n..|.n...>.(|
|00000880| 2c 24 08 d2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |,$......|.>..MPSR|
|00000890| 00 01 00 0a 03 f0 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 03 ed ff ff 00 00 00 22 | 00 29 d3 9c 00 00 00 00 |......."|.)......|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+